home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / pc_board / lfgtpwd.zip / FORGETPW.PPE (.txt) next >
PCBoard Programming Language Executable  |  1993-05-18  |  4KB  |  146 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.  
  23. ;------------------------------------------------------------------------------
  24.  
  25.     GetUser
  26.     Print "@CLS@"
  27.     PrintLn "@X5FIS   @X0A  Current User ID: @X0B@USER@"
  28.     PrintLn "@X5FTHIS @X0A  City/State     : @X0B@CITY@"
  29.     PrintLn "@X5FYOU? @X0A  Last Time On   : @X0B@LASTDATEON@ @X0Aat @X0B@LASTTIMEON@"
  30.     PrintLn 
  31.     STRING001 = ""
  32.     InputYN "Does the above information belong to you", STRING001, 14
  33.     If (STRING001 <> YesChar()) Goto LABEL002
  34.     PrintLn "@CLS@@X0FIf you are a registered user on this system@X07 and simply forgot your password"
  35.     PrintLn "then we can help you out, by changing your password for you, if you wil first"
  36.     PrintLn "verify the following information for us:"
  37.     PrintLn 
  38.     PrintLn "@X38┌─────────────────────────────────────────────────────────────────────────@X3B┐@X07"
  39.     PrintLn "@X38│@X3E  a) Your voice @X3Fphone number@X3E                                             @X3B│@X07"
  40.     PrintLn "@X38│@X3E  b) The @X3Fnew password@X3E you would like to use on this system               @X3B│@X07"
  41.     PrintLn "@X38│                                                                         @X3B│@X07"
  42.     PrintLn "@X38│@X31We need @XBFBOTH@X31 pieces of information in order to change your password!!    @X3B│@X07"
  43.     PrintLn "@X38└@X3B─────────────────────────────────────────────────────────────────────────┘@X07"
  44.     PrintLn 
  45.     STRING001 = ""
  46.     AdjTime 5
  47.     STRING002 = ""
  48.     STRING003 = ""
  49.     :LABEL001
  50.     PrintLn 
  51.     PrintLn 
  52.     InputText "What is your voice phone number", STRING002, 14, 20
  53.     PrintLn 
  54.     InputText "What would you like your NEW PASSWORD to be", STRING003, 14, 12
  55.     PrintLn 
  56.     PrintLn 
  57.     STRING001 = ""
  58.     InputYN "Is all of the above information correct", STRING001, 14
  59.     PrintLn 
  60.     If (STRING001 <> YesChar()) Goto LABEL001
  61.     PrintLn "@CLS@@X03"
  62.     PrintLn "Your answers will be placed into a COMMENT where the Sysop can read them"
  63.     PrintLn "and process your request.  This is usually done within a few hours."
  64.     PrintLn 
  65.     PrintLn "@X0FYou will now be placed into the message editor where you may provide any"
  66.     PrintLn "other comments and/or edit the answers you have given."
  67.     PrintLn 
  68.     More
  69.     KbdStuff "Y" + Chr(13)
  70.     If ((U_FSEP == 1) && (U_FSE == 0)) KbdStuff "N" + Chr(13)
  71.     KbdStuff "Voice Number : " + STRING002 + Chr(13)
  72.     KbdStuff "New Password : " + STRING003 + Chr(13)
  73.     KbdStuff "I forgot my password! Could you verify me and change it?" + Chr(13)
  74.     End
  75.     :LABEL002
  76.     PrintLn 
  77.     PrintLn "@CLS@@X0FSince that user information did NOT belong to you@X0F, please call back using a"
  78.     PrintLn "different user-id, perhaps adding a middle initial to make your logon-id unique"
  79.     PrintLn "for this system."
  80.     PrintLn "@X0A"
  81.     PrintLn "Here's an example of how to log on with a middle initial:"
  82.     PrintLn 
  83.     PrintLn "    @X0EEnter your first name?  @X07JOHN Q. PUBLIC"
  84.     PrintLn 
  85.     PrintLn "@X0AOr any other variation on your user-id may work."
  86.     PrintLn 
  87.     Wait
  88.     PrintLn 
  89.     PrintLn "Please hang up now and try logging in again."
  90.     PrintLn 
  91.     KbdStuff "N" + Chr(13)
  92.     Goodbye
  93.  
  94. ;------------------------------------------------------------------------------
  95. ;
  96. ; Usage report (before postprocessing)
  97. ;
  98. ; ■ Statements used :
  99. ;
  100. ;    1       End
  101. ;    1       More
  102. ;    1       Wait
  103. ;    2       Goto 
  104. ;    5       Let 
  105. ;    1       Print 
  106. ;    42      PrintLn 
  107. ;    3       If 
  108. ;    1       GetUser
  109. ;    1       AdjTime 
  110. ;    2       InputYN 
  111. ;    2       InputText 
  112. ;    6       KbdStuff 
  113. ;    1       Goodbye
  114. ;
  115. ;
  116. ; ■ Functions used :
  117. ;
  118. ;    8       +
  119. ;    2       ==
  120. ;    2       <>
  121. ;    1       &&
  122. ;    6       Chr()
  123. ;    2       YesChar()
  124. ;
  125. ;------------------------------------------------------------------------------
  126. ;
  127. ; Analysis flags : A
  128. ;
  129. ; A - Adjust online time remaining ■ 5
  130. ;     Program modify the amount of online time remaining, this may
  131. ;     be a way to bypass time limits
  132. ;     ■ Search for : ADJTIME
  133. ;
  134. ;------------------------------------------------------------------------------
  135. ;
  136. ; Postprocessing report
  137. ;
  138. ;    0       For/Next
  139. ;    0       While/EndWhile
  140. ;    0       If/Then or If/Then/Else
  141. ;    0       Select Case
  142. ;
  143. ;------------------------------------------------------------------------------
  144. ;                 AEGiS Corp - Break the routines, code against the machines!
  145. ;------------------------------------------------------------------------------
  146.